Object Pascal

Object Pascal
Paradigm(s) imperative, structured, object-oriented, functional (Delphi dialect only)
Appeared in 1986 (1986)
Designed by Apple, Niklaus Wirth, Anders Hejlsberg
Typing discipline static and dynamic (dynamic typing through Variants, array of const and RTTI), strong, safe
Major implementations Delphi (x86 and CLI), Oxygene (CLI), RemObjects Cooper (Java and Android), Free Pascal (x86, x86-64, PowerPC, ppc64, SPARC and ARM), Virtual Pascal (x86), TMT Pascal (x86), Turbo51 (Intel 8051)
Dialects Apple, Turbo Pascal, objfpc, Delphi, Delphi.NET, Oxygene
Influenced by Pascal, Smalltalk
Influenced C#, Java

Object Pascal refers to a branch of object-oriented derivatives of Pascal, mostly known as the primary programming language of Embarcadero Delphi.

Contents

Early history at Apple

Object Pascal is an extension of the Pascal language that was developed at Apple Computer by a team led by Larry Tesler in consultation with Niklaus Wirth, the inventor of Pascal. It is descended from an earlier object-oriented version of Pascal called Clascal, which was available on the Lisa computer.

Object Pascal was needed in order to support MacApp, an expandable Macintosh application framework that would now be called a class library. Object Pascal extensions and MacApp itself were developed by Barry Haynes, Ken Doyle, and Larry Rosenstein, and were tested by Dan Allen. Larry Tesler oversaw the project, which began very early in 1985 and became a product in 1986.

Apple dropped support for Object Pascal when they moved from Motorola 68K chips to IBM's PowerPC architecture in 1994.

An Object Pascal extension was also implemented in the Think Pascal IDE. The IDE includes the compiler and an editor with Syntax highlighting and checking, a powerful debugger and a class library. Many developers preferred Think Pascal over Apple's implementation of Object Pascal because Think Pascal offered a tight integration of its tools. The development stopped after the 4.01 version because the company was bought by Symantec. The developers then left the project.

The Borland and CodeGear years

In 1986, Borland introduced similar extensions, also called Object Pascal, to the Turbo Pascal product for the Macintosh, and in 1989 for Turbo Pascal 5.5 for DOS.

When Borland refocused from DOS to Windows in 1994, they created a successor to Turbo Pascal, called Delphi and introduced a new set of extensions to create what is now known as the Delphi language.

The development of Delphi started in 1993 and Delphi 1.0 was officially released in the United States on 14 February 1995. While code using the Turbo Pascal object model could still be compiled, Delphi featured a new syntax using the keyword class in preference to object, the Create constructor and a virtual Destroy destructor (and negating having to call the New and Dispose procedures), properties, method pointers, and some other things. These were inspired by the ISO working draft for object-oriented extensions, but many of the differences to Turbo Pascal's dialect (such as the draft's requirement that all methods be virtual) were ignored.

The Delphi language has continued to evolve over the years to support constructs such as dynamic arrays, generics and anonymous methods.

Versions

Compilers

Object Pascal compilers are available for a wide range of operating systems and archtectures.

Legacy products

Interpreters

Pascal Script (formerly known as InnerFuse) and DWScript (Delphi Web Script) are open-source Object Pascal interpreters/scripting engines written in Delphi. They support subsets of Object Pascal. DWScript can also compile Object Pascal code into JavaScript code.

Sample "Hello World" programs

Apple's Object Pascal

program ObjectPascalExample;
 
   type
      THelloWorld = object
         procedure Put;
      end;
 
   var
      HelloWorld: THelloWorld;
 
   procedure THelloWorld.Put;
   begin
      WriteLn('Hello, World!');
   end;
 
begin
   New(HelloWorld);
   HelloWorld.Put;
   Dispose(HelloWorld);
end.

Turbo Pascal's Object Pascal

Still supported in Delphi and Free Pascal. FPC also packages its own substitutes for the libraries/units. Delphi doesn't. The Free Pascal 1.0 series and the FPC textmode IDE are the largest open codebases in this dialect. Free Pascal 2.0 was rewritten in a more Delphi-like dialect.

program ObjectPascalExample;
 
   type
      PHelloWorld = ^THelloWorld;
      THelloWorld = object
         procedure Put;
      end;
 
   var
      HelloWorld: PHelloWorld; { this is a pointer to a THelloWorld }
 
   procedure THelloWorld.Put;
   begin
      WriteLn('Hello, World!');
   end;
 
begin
   New(HelloWorld);
   HelloWorld^.Put;
   Dispose(HelloWorld);
end.

Delphi and Free Pascal's Object Pascal

program ObjectPascalExample;
 
type
  THelloWorld = class
    procedure Put;
  end;
 
procedure THelloWorld.Put;
begin
  Writeln('Hello, World!');
end;
 
var
  HelloWorld: THelloWorld;               { this is an implicit pointer }
 
begin
  HelloWorld := THelloWorld.Create;      { constructor returns a pointer to an object of type THelloWorld }
  HelloWorld.Put;                        
  HelloWorld.Free;                       { this line deallocates the THelloWorld object pointed to by HelloWorld }
end.

Note that the object construct is still available in Delphi and Free Pascal (Delphi-compatible mode).

Oxygene Object Pascal

namespace ObjectPascalExample;
 
   interface
 
   type
      ConsoleApp = class
         class method Main;
      end;
 
      THelloWorld = class
         method Put;
      end;
 
   implementation
 
   method THelloWorld.Put;
   begin
      Console.WriteLine('Hello, World!');
   end;
 
   class method ConsoleApp.Main;
   begin
      var HelloWorld := new THelloWorld;
      HelloWorld.Put;
   end;
 
end.

DWScript's Object Pascal

type
   THelloWorld = class
      procedure Put;            
      begin
         PrintLn('Hello, World!');
      end
   end;
 
var HelloWorld := THelloWorld.Create;
 
HelloWorld.Put;

Note that the method implementation can also be made in a distinct location as in other Object Pascal dialects.

Development

Many features have been introduced continuously to Object Pascal with extensions to Delphi, now also by Free Pascal. In reaction to criticisms, Free Pascal has adopted generics, and both Delphi and Free Pascal now support operator overloading (with different grammar, though). Delphi has also introduced many other features since version 7[3] including generics.

See also

References

  1. ^ http://edn.embarcadero.com/article/38132
  2. ^ "iPhone/iPod development". Free Pascal development team. http://wiki.freepascal.org/iPhone/iPod_development. Retrieved 2009-04-13. 
  3. ^ "New Delphi language features since Delphi 7". CodeGear. http://dn.codegear.com/article/34324. Retrieved 2008-07-06. 

External links

Dialects
Pascal · Object Pascal · Oxygene · Clascal · Concurrent Pascal · SuperPascal
Compilers
Current
Historical